home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / Map-aka.dir / 00037.ls < prev    next >
Encoding:
Text File  |  1999-04-08  |  1.3 KB  |  60 lines
  1. on initmainmap
  2.   repeat with i = 9 to 15
  3.     puppetSprite(i, 1)
  4.   end repeat
  5. end
  6.  
  7. on allSpritesOff
  8.   repeat with i = 1 to 48
  9.     puppetSprite(i, 0)
  10.   end repeat
  11. end
  12.  
  13. on mainrolls
  14.   theh = the locH of sprite 2
  15.   theV = the locV of sprite 2
  16.   repeat with i = 9 to 15
  17.     set the locH of sprite i to theh
  18.     set the locV of sprite i to theV
  19.   end repeat
  20.   updateStage()
  21.   repeat with i = 9 to 15
  22.     if rollOver(i) then
  23.       theCast = cast(the castNum of sprite i).name
  24.       set the castNum of sprite i to the number of member (theCast & "1")
  25.       updateStage()
  26.       repeat while rollOver(i)
  27.       end repeat
  28.       set the castNum of sprite i to the number of member theCast
  29.       updateStage()
  30.     end if
  31.   end repeat
  32. end
  33.  
  34. on initwharf
  35.   repeat with i = 10 to 13
  36.     puppetSprite(i, 1)
  37.   end repeat
  38. end
  39.  
  40. on wharfrolls
  41.   theh = the locH of sprite 2
  42.   theV = the locV of sprite 2
  43.   repeat with i = 10 to 13
  44.     set the locH of sprite i to theh
  45.     set the locV of sprite i to theV
  46.   end repeat
  47.   updateStage()
  48.   repeat with i = 10 to 13
  49.     if rollOver(i) then
  50.       theCast = cast(the castNum of sprite i).name
  51.       set the castNum of sprite i to the number of member (theCast & "1")
  52.       updateStage()
  53.       repeat while rollOver(i)
  54.       end repeat
  55.       set the castNum of sprite i to the number of member theCast
  56.       updateStage()
  57.     end if
  58.   end repeat
  59. end
  60.